home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00230.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  935 b   |  34 lines
  1. on mouseDown me
  2.   repeat while the mouseDown
  3.     if the locV of sprite 45 < 235 then
  4.       set the blend of sprite 45 to 100
  5.       redr = (55 + (180 - the locV of sprite 45)) * 1.41700000000000004
  6.       redg = redr
  7.       redb = 255
  8.       sprite(45).color = rgb(redr, redg, redb)
  9.     else
  10.       if the locV of sprite 45 = 235 then
  11.         sprite(45).color = rgb(0, 0, 255)
  12.         set the blend of sprite 45 to 100
  13.       else
  14.         if the locV of sprite 45 > 235 then
  15.           set the blend of sprite 45 to (236 + (90 - the locV of sprite 45)) * 1.11099999999999999
  16.         end if
  17.       end if
  18.     end if
  19.     set the locV of sprite 45 to the mouseV
  20.     set the locV of sprite 64 to the mouseV
  21.     if the blend of sprite 45 < 10 then
  22.       showit(64, 64)
  23.     else
  24.       hideit(64, 64)
  25.     end if
  26.     updateStage()
  27.   end repeat
  28. end
  29.  
  30. on mouseUp me
  31.   set the locV of sprite 45 to the mouseV
  32.   set the locV of sprite 64 to the mouseV
  33. end
  34.